home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 August
/
1994-08b.d64
/
rem replace
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
239b
|
6 lines
1 :rem replace all rems with ':' note: rem must be first on line
2 p=peek(43)+256*peek(44)
3 print".";:l=peek(p+2)+256*peek(p+3):n=peek(p)+256*peek(p+1):if n=0 then end
4 ifpeek(p+4)<>143thenp=n:goto3
5 print"[147]"l":":print"p="p":g[207] 3";:poke631,13:poke632,13:poke198,2:end